* vc-hooks.el (vc-user-login-name):

Let-bind `process-file-side-effects' with nil.

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index d35471a4738e1df54c7d9b655417b7a534edd1bf..f84cf576343c62923e568b9dc1c07f946eb0fa35 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -436,7 +436,8 @@ For registered files, the possible values are:
   "Return the name under which the user accesses the given FILE."
   (or (and (eq (string-match tramp-file-name-regexp file) 0)
            ;; tramp case: execute "whoami" via tramp
-           (let ((default-directory (file-name-directory file)))
+           (let ((default-directory (file-name-directory file))
+                process-file-side-effects)
              (with-temp-buffer
                (if (not (zerop (process-file "whoami" nil t)))
                    ;; fall through if "whoami" didn't work